unit TDicRegion;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

implementation

type
  TDicRegionVO = class(TDataTransferObject)
  private
    FRegionId: string;
    FTitle: string;
    FParentId: string;
    FNodeType:String;
    FStatus:String;
    FSort:Integer;
    FDistance:double;
    FInfo1:String;
    FInfo2:String;
  published
    property PK_Region_Id: string index 0 read FRegionId write FRegionId;
    property Title: string index 1 read FTitle write FTitle;
    property ParentId: String index 2 read FParentId write FParentId;
    property NodeType: String index 3 read FNodeType write FNodeType;
    property Status: String index 4 read FStatus write FStatus;
    property Sort: Integer index 5 read FSort write FSort;
    property distance: double index 6 read FDistance write FDistance;
    property info1: string index 7 read FInfo1 write FInfo1;
    property info2: string index 8 read FInfo2 write FInfo2;
  public
    constructor Create;
    procedure Reset();
  end;


constructor TDicRegionVO.Create;
begin
  inherited Create;
  tbName := 'dic_region';
  SetLength(GridInfo, 9);
end;

procedure TDicRegionVO.Reset();
begin
  FRegionId:='-999';
  FTitle:='-999';
  FParentId:='-999';
  FNodeType:='-999';
  FStatus:='-999';
  FSort:=-999;
  FDistance:=-999;
  FInfo1:='-999';
  FInfo2:='-999';
end;  


end.
